module Game.Trubis.Position (
  module Game.Trubis.Position,
  module Linear.V2,
  module Linear.Vector,
) where

import Linear.V2
import Linear.Vector

type Position = V2 Int

-- | prop> forall (d :: Direction). all (\d_i -> abs d_i <= 1) d
type Direction = V2 Int

right, up, left, down :: Direction
right:up:left:down:_ = iterate perp (V2 1 0)

